<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="config.asp"-->
<%
'mode 1角色 2物品ID
'itemID 物品ID
'server 服务器名
'sname 角色名
sserver = Request("server")
sname = Request("sname")
itemID = Request("itemID")

Select Case Request("mode")
Case "1"
	p = ArmoryServerUrl(langcode)&"character-sheet.xml?r="&sserver&"&n="&sname
Case "2"
	p = ArmoryServerUrl(langcode)&"item-tooltip.xml?i="&itemID
Case "3"
	p = "http://db.duowan.com/wow/gi-"&itemID&".html"
	Response.write itemID&"#"
Case Else
	Response.write "<h1>Error!!</h1>"
End Select
Response.BinaryWrite GetArmory(p) 
Response.Flush

Function GetArmory(url)  
	Set Retrieval = CreateObject("Microsoft.XMLHTTP")  
	With Retrieval  
	.Open "Get", url, False, "", ""  
	.Send  
	GetArmory = .ResponseBody  
	End With  
	Set Retrieval = Nothing  
End Function 
%>
